home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 March / PCWMAR06.iso / Software / Full / Canvas 8 / Canvas8 / AllCanvasToolsFiles.Cab / F3996_EPSIO.CVT / PS_CODE / EPSSEP < prev    next >
Encoding:
Text File  |  2002-03-14  |  2.4 KB  |  43 lines
  1. /_cc exch def /_cn exch def
  2. /setseparationgray/setgray load def
  3. /separationimage/image load def
  4. /$1/setgray load def
  5. /$2/setcmykcolor load def
  6. /$3/imagemask load def
  7. /$4/image load def
  8. /$5/colorimage load def
  9. /$6/fill load def
  10. /$7/eofill load def
  11. /$8/stroke load def
  12. /$9/show load def
  13. /$10/ashow load def
  14. /$11/widthshow load def
  15. /$12/kshow load def
  16. /$13/awidthshow load def
  17. /dict_count countdictstack def/op_count count 1 sub def/showpage{}def
  18. /findcmykcustomcolor{5 array astore readonly}bdf
  19. /setgray{1. exch sub 0 0 0 4 -1 roll //epsdict /setcmykcolor get exec}bdf
  20. /setrgbcolor{ 3{1 exch sub 3 1 roll}repeat 3 copy 2{2 copy gt{exch}if pop}repeat 
  21. 4 1 roll 3{3 index sub 3 1 roll}repeat 4 -1 roll //epsdict /setcmykcolor get exec}bdf
  22. /x matrix def/_op false def
  23. /setoverprint{//epsdict exch /_op exch put}bdf
  24. /P{currentgray 1 eq _op and not}bdf
  25. /setcmybcolor{//epsdict /setcmykcolor get exec}bdf
  26. /imagemask{dup type/dicttype eq{//epsdict /$3 get exec}{//epsdict begin P{currentdict end/$3 get exec}{_op not {gsave 0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto closepath 1 $1 $6 grestore}if
  27. gsave x currentmatrix nulldevice setmatrix currentdict end/$3 get exec grestore}ifelse}ifelse}bdf
  28. /colorimage {
  29.  //epsdict begin _cc 3 le{currentdict end /$5 get exec}{gsave x currentmatrix nulldevice setmatrix currentdict end /$5 get exec grestore}ifelse end
  30.  }bdf
  31. /fill{//epsdict begin P{currentdict end /$6 get exec}{end newpath}ifelse}bdf
  32. /eofill{//epsdict begin P{currentdict end /$7 get exec}{end newpath}ifelse}bdf
  33. /stroke{//epsdict begin P{currentdict end /$8 get exec}{end newpath}ifelse}bdf
  34. /show{//epsdict begin P{currentdict end /$9 get exec}{end stringwidth rmoveto}ifelse}bdf
  35. /ashow{//epsdict begin P{currentdict end /$10 get exec}{gsave currentpoint x currentmatrix nulldevice
  36.  setmatrix moveto currentdict end /$10 get exec currentpoint grestore moveto}ifelse}bdf
  37. /widthshow{//epsdict begin P{currentdict end /$11 get exec}{gsave currentpoint x currentmatrix nulldevice
  38.  setmatrix moveto currentdict end /$11 get exec currentpoint grestore moveto}ifelse}bdf
  39. /awidthshow{//epsdict begin P{currentdict end /$13 get exec}{gsave currentpoint x currentmatrix nulldevice
  40.  setmatrix moveto currentdict end /$13 get exec currentpoint grestore moveto}ifelse}bdf
  41. /kshow{//epsdict begin P{currentdict end /$12 get exec}{gsave currentpoint x currentmatrix nulldevice
  42.  setmatrix moveto currentdict end /$12 get exec currentpoint grestore moveto}ifelse}bdf
  43.